(Declare)loadbitmapa
(Declare)showcaret
(Declare)createcaret
dim h as long
text1.setfocuse
h=load...(app.instant,100)
create... text1.hwnd,h,3,16
show... text1.hwnd